home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / apps / astronmy / strchart.arc / patch.arc / moonphse.dif < prev    next >
Text File  |  1989-03-23  |  2KB  |  81 lines
  1. *** ../starchart/moonphase.c    Mon Sep 19 09:11:06 1988
  2. --- moonphse.c    Mon Sep 26 08:00:23 1988
  3. ***************
  4. *** 12,17 ****
  5. --- 12,21 ----
  6.   ! modified by awpaeth@watcgl, December 1987 for sysV compatability
  7.   ****************************************************************************/
  8.   
  9. + #ifdef ST_MWC /* Mark Williams C for the Atari ST */
  10. + #define SYSV /* MWC is almost SYSV compatible */
  11. + #endif  /* ST_MWC */
  12. + 
  13.   #include <stdio.h>
  14.   #ifndef SYSV
  15.   #include <sys/time.h>
  16. ***************
  17. *** 19,25 ****
  18. --- 23,35 ----
  19.   #include <time.h>
  20.   #endif
  21.   #include <math.h>
  22. + #ifdef ST_MWC
  23. + #include <osbind.h> /* Needed for Cconws() and Crawcin() */
  24. + #define cfree() free() /* MWC doesn't have cfree() */
  25. + #endif /* ST_MWC */
  26. + #ifndef PI
  27.   #define PI         3.141592654
  28. + #endif
  29.   #define EPOCH   1983
  30.   #define EPSILONg 279.103035     /* solar ecliptic long at EPOCH */
  31.   #define RHOg     282.648015     /* solar ecliptic long of perigee at EPOCH */
  32. ***************
  33. *** 34,40 ****
  34. --- 44,55 ----
  35.   double adj360();
  36.   double potm();
  37.   
  38. + #ifdef ST_MWC
  39. + extern char *getenv(); /* Used to see if we're running from the desktop */
  40. + time_t lo;
  41. + #else /* !ST_MWC */
  42.   long *lo = (long *) calloc (1, sizeof(long)); /* used by time calls */
  43. + #endif /* ST_MWC */
  44.   struct tm *pt; /* ptr to time structure */
  45.   
  46.   double days;   /* days since EPOCH */
  47. ***************
  48. *** 42,50 ****
  49. --- 57,70 ----
  50.   double phase2; /* percent of lunar surface illuminated one day later */
  51.   int i = EPOCH;
  52.   
  53. + #ifdef ST_MWC
  54. + time (&lo);  /* get system time */
  55. + pt = gmtime(&lo);  /* get ptr to gmt time struct */
  56. + #else /* !ST_MWC */
  57.   time (lo);  /* get system time */
  58.   pt = gmtime(lo);  /* get ptr to gmt time struct */
  59.   cfree(lo);
  60. + #endif /* ST_MWC */
  61.   
  62.   /* calculate days since EPOCH */
  63.   days = (pt->tm_yday +1) + ((pt->tm_hour + (pt->tm_min / 60.0)
  64. ***************
  65. *** 82,87 ****
  66. --- 102,115 ----
  67.         printf("Waning ");
  68.      printf("Crescent (%1.0f%% of Full)\n", phase);
  69.      }
  70. + #ifdef ST_MWC /* We want to hold the screen if invoked from the GEM desktop; */
  71. +            /* the desktop doesn't usually set any environment variables, */
  72. +            /* and if getenv() does find anything, it's probably empty */
  73. + if (((getenv("PATH")) == 0) || (strlen(getenv("PATH")) == 0)) {
  74. +      Cconws("press any key to continue: "); /* Hold screen if desktop */
  75. +      i = Crawcin(); /* Read raw character input */
  76. + }
  77. + #endif /* ST_MWC */
  78.   }
  79.   
  80.   double potm(days)
  81.